home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor2 / phi.src < prev    next >
Text File  |  1991-10-24  |  302b  |  14 lines

  1. %%HP: T(3)A(D)F(.);
  2. @ PHI by Joseph K. Horn
  3. @ Requires FACTOR by Jurjen NE Bos (on Goodies Disk #2)
  4. \<< FACTOR OBJ\->
  5.   IF DUP
  6.   THEN 1 # 1d \-> n p
  7.     \<< 1 SWAP
  8.       START DUP n \=/ OVER 'n' STO - 'p' STO*
  9.       NEXT p
  10.     \>> DUP # 1000000000000d < { B\->R } IFT
  11.   ELSE NOT
  12.   END
  13. \>>
  14.